home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / macro28.lha / Macro / FinsGold / TeX / ResetTeXError.ged < prev    next >
Encoding:
Text File  |  1994-03-16  |  2.0 KB  |  65 lines
  1. /* $VER: ResetTeXError V 0.2 © 1994 Fin Schuppenhauer */
  2. /**
  3.    Nur mit dem Makro "NextTexError.ged"   You need "NextTeXError.ged"!
  4.    sinnvoll!                              Closes the logfile-window and
  5.    Löscht das  Logfile-Fenster und  die   clears the clip variables set
  6.    gesetzten Clip-Variablen.              by "NextTeXError.ged".
  7.  
  8.    Anregungen, Fehlerberichte u.ä. an:    Bug reports or anything else to:
  9.  
  10.       Fin Schuppenhauer                      Fin Schuppenhauer
  11.       Braußpark 10                           Brausspark 10
  12.       20537 Hamburg                          D - 20537 Hamburg
  13.                                              (Germany)
  14.  
  15.    Oder per E-Mail:                       Or via e-mail:
  16.  
  17.                schuppen@rzdspc2.informatik.uni-hamburg.de
  18.  
  19.    Dieses Makro ist PUBLIC DOMAIN.        This macro is PUBLIC DOMAIN.
  20.  
  21. **/
  22.  
  23. OPTIONS RESULTS                             /* enable return codes     */
  24.  
  25. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  26.     address 'GOLDED.1'
  27.  
  28. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  29. OPTIONS FAILAT 6                            /* ignore warnings         */
  30. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  31.  
  32.  
  33. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  34.  
  35. 'QUERY CAT'
  36. isGerman = (result = "deutsch")
  37.  
  38. if show('C', 'texfiles') then do
  39.    tf = getclip('texfiles')
  40.    do i=2 to words(tf)
  41.       call setclip(word(tf,i))
  42.    end
  43.    call setclip('texfiles')
  44.    'WINDOW USE='word(tf,1)' QUIET'
  45.    if rc = 0 then
  46.       'QUIT'
  47.    if show('C', 'scanline') then
  48.       call setclip('scanline')
  49.    if (isGerman) then
  50.       'REQUEST BODY="Logfile-Fenster geschlossen.|Clip-Variablen gelöscht." BUTTON="Sehr schön"'
  51.    else
  52.       'REQUEST BODY="Logfile-window closed.|Clip-variables cleared." BUTTON=Nice'
  53. end
  54.  
  55. /* ---------------------------- END OF YOUR CODE --------------------- */
  56.  
  57. 'UNLOCK' /* VERY important: unlock GUI */
  58. EXIT
  59.  
  60. SYNTAX:
  61.  
  62. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  63. 'UNLOCK'
  64. EXIT
  65.